home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 89 / maccd 89.iso / utilities / Mac OS X / ProcessWizard.dmg / ProcessWizard / ProcessWizard Daemon.app / Contents / Resources / s.pl < prev    next >
Encoding:
Perl Script  |  2002-01-24  |  2.2 KB  |  80 lines
  1. #!/usr/bin/perl
  2. # 
  3. # USAGE : s.pl <tmppath> 
  4.  
  5. ($tmppath = $ARGV[0]) =~ s/(\&|'|")/\\\1/g; # escape &, ' and " chars with \
  6.  
  7. $tmpfile = "$tmppath/AppBooster$$.plist";
  8.  
  9. open TMPFILE, ">$tmpfile" or die "Couldn't write temporary file";
  10.  
  11.     %dico = ();
  12.     
  13.     $pscommand = "ps axwwo pid,ni,user,command";
  14.     open SHELL2, "$pscommand |" or die "probleme";
  15.     
  16.     # PID NI COMMAND
  17.     # 256  0 /System/Library/CoreServices/Dock.app/Contents/MacOS/Dock -psn_0_393217
  18.     # ...
  19.     
  20.     <SHELL2>; # On oublie ainsi la première ligne (PID NI COMMAND)
  21.     while (<SHELL2>)
  22.     { 
  23.         chop;
  24.         @t = split(" ", $_, 4) ;
  25.  
  26.         $pid = $t[0] ;
  27.         $command = $t[3];
  28.         
  29.         if( $pid != $$ && $command ne "ps axwwo pid ni user command") # On ne veut pas du process de ce script, ni de celui de ps dans la liste !
  30.         {
  31.             $_ = $t[2];
  32.             if(/.+ -psn_(.+$)/)
  33.             {
  34.                 $psn = $1;
  35.                 $psn =~ s/_/-/;
  36.             } else {$psn = "?";}
  37.             
  38.             # en XML, les signes &, < et > doivent être codés.
  39.             
  40.             $t[2] =~ s/&/&/g;
  41.             $t[2] =~ s/</</g;
  42.             $t[2] =~ s/>/>/g;
  43.     
  44.             push @dico, {pid => $t[0], nice => $t[1], user => $t[2], command => $t[3], psn => $psn };
  45.         }
  46.     }
  47.  
  48.     close SHELL2;
  49.     
  50. print TMPFILE  '<?xml version="1.0" encoding="UTF-8"?><!DOCTYPE plist SYSTEM "file://localhost/System/Library/DTDs/PropertyList.dtd">';
  51.  
  52. print TMPFILE '<plist version="0.9">';
  53. print TMPFILE   "\n<dict>\n";
  54.  
  55. print TMPFILE   "\t<key>psProcessesArray</key>\n";
  56. print TMPFILE   "\t<array>\n";
  57. foreach (@dico)
  58. {
  59.     print TMPFILE   "\t\t<dict>\n";
  60.     print TMPFILE   "\t\t\t<key>pid</key><string>".$_->{pid}."</string>\n";
  61.     print TMPFILE   "\t\t\t<key>command</key><string>".$_->{command}."</string>\n";
  62.     print TMPFILE   "\t\t\t<key>psn</key><string>".$_->{psn}."</string>\n";
  63.     print TMPFILE   "\t\t\t<key>nice</key><string>".$_->{nice}."</string>\n";
  64.     print TMPFILE   "\t\t\t<key>user</key><string>".$_->{user}."</string>\n";
  65.     print TMPFILE   "\t\t</dict>\n";
  66. }
  67. print TMPFILE   "\t</array>\n";
  68.  
  69. #print TMPFILE   "\t<key>user</key><string>".$user."</string>\n";
  70.  
  71. print TMPFILE   "</dict>\n";
  72. print TMPFILE   '</plist>';
  73.  
  74. close TMPFILE;
  75.  
  76. # On indique à Cocoa le nom du fichier temporaire qui a été créé.
  77. # Si l'on commente la ligne suivante, le fichier temporaire ne sera pas effacé (debug)
  78. print $tmpfile;
  79.  
  80.